home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 April / 1986-04.d64 / input windows (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  70 lines
  1. 100 print"[147]reading data statements..."
  2. 110 forb=49152to49604:readd:pokeb,d:ck=ck+d:next
  3. 120 ifck<>57716then print"error in data statements":end
  4. 130 pn$="input.obj":forj=1tolen(pn$):poke704+j,asc(mid$(pn$,j,1)):nextj
  5. 140 print"d[146]isk or t[146]ape? ";:device=8
  6. 150 geta$:ifa$="t"thendevice=1:goto170
  7. 160 ifa$<>"d"then150
  8. 170 printa$:poke780,15:poke781,device:poke782,255:sys65466
  9. 180 poke780,len(pn$):poke781,193:poke782,2:sys65469
  10. 190 ba=49152:hi=int(ba/256):lo=ba-hi*256:poke251,lo:poke252,hi
  11. 200 ea=49604:hi=int(ea/256):lo=ea-hi*256+1:poke780,251:poke781,lo:poke782,hi
  12. 210 print"saving ml version of "pn$:sys65496
  13. 220 data 56,32,240,255,132,139,173,136
  14. 230 data 2,168,169,0,202,48,8,24
  15. 240 data 105,40,144,248,200,208,245,24
  16. 250 data 101,139,144,1,200,133,139,133
  17. 260 data 167,132,140,152,24,105,212,133
  18. 270 data 168,173,24,208,41,2,141,195
  19. 280 data 193,240,4,169,127,208,2,169
  20. 290 data 63,141,240,192,162,87,169,32
  21. 300 data 157,0,2,202,16,250,232,134
  22. 310 data 141,164,141,177,139,9,128,145
  23. 320 data 139,32,228,255,240,251,72,164
  24. 330 data 141,177,139,41,127,145,139,104
  25. 340 data 162,4,221,29,193,240,5,202
  26. 350 data 16,248,48,29,224,4,208,3
  27. 360 data 76,42,193,138,10,170,189,34
  28. 370 data 193,141,132,192,232,189,34,193
  29. 380 data 141,133,192,32,0,16,76,73
  30. 390 data 192,201,32,144,188,201,96,144
  31. 400 data 8,201,193,144,180,201,219,176
  32. 410 data 176,164,141,196,142,240,170,174
  33. 420 data 195,193,208,7,201,96,144,3
  34. 430 data 56,233,128,153,0,2,32,235
  35. 440 data 192,173,134,2,145,167,230,141
  36. 450 data 76,73,192,166,141,228,142,240
  37. 460 data 136,230,141,96,166,141,240,129
  38. 470 data 198,141,96,164,141,208,1,96
  39. 480 data 198,141,185,0,2,136,153,0
  40. 490 data 2,32,235,192,200,200,196,142
  41. 500 data 144,240,169,32,153,0,2,32
  42. 510 data 235,192,96,201,193,144,5,41
  43. 520 data 127,76,250,192,201,65,144,2
  44. 530 data 41,63,145,139,96,164,141,196
  45. 540 data 142,208,1,96,169,32,72,185
  46. 550 data 0,2,170,104,153,0,2,32
  47. 560 data 235,192,200,196,142,240,5,138
  48. 570 data 72,76,7,193,96,29,157,148
  49. 580 data 20,13,187,192,196,192,253,192
  50. 590 data 203,192,169,0,133,144,162,79
  51. 600 data 189,0,2,201,32,208,6,202
  52. 610 data 16,246,230,144,96,232,134,142
  53. 620 data 165,143,208,13,162,183,160,193
  54. 630 data 142,94,193,140,95,193,76,91
  55. 640 data 193,162,188,160,193,142,94,193
  56. 650 data 140,95,193,160,0,185,0,16
  57. 660 data 240,7,153,52,3,200,76,93
  58. 670 data 193,162,0,189,0,2,153,52
  59. 680 data 3,200,232,228,142,208,244,165
  60. 690 data 143,208,9,169,34,153,52,3
  61. 700 data 200,76,144,193,169,34,153,52
  62. 710 data 3,200,169,41,153,52,3,200
  63. 720 data 169,0,153,52,3,165,122,141
  64. 730 data 181,193,165,123,141,182,193,169
  65. 740 data 52,133,122,169,3,133,123,32
  66. 750 data 165,169,173,181,193,133,122,173
  67. 760 data 182,193,133,123,96,0,0,84
  68. 770 data 36,178,34,0,84,49,178,197
  69. 780 data 40,34,0,0,170
  70.